#!/usr/bin/perl -w

while ($arg = shift @ARGV) {
  my $shortname = $arg;
  $shortname =~ s#^.*/(.*)_COURSE.*$#$1#;
  print "Importing $arg ($shortname)....\n";
  ## $shortname .= "_dec11";
  system("echo $shortname >> progress.log");
  system("php import.php '$arg' $shortname >> 'logs/$shortname.log' 2>&1");
}
